home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 December / macformat-097.iso / Demos / QuarkWrapture 1.0 / QuarkWrapture Demo-English / QuarkWrapture™ 1.0 Demo / XTension / Interface / Interface.rsrc / EPSH_0 < prev    next >
Encoding:
Text File  |  2000-08-25  |  24.2 KB  |  3,936 lines
  1. %%DocumentProcessColors: Black
  2. %%DocumentSuppliedResources: procset Adobe_packedarray 2.0 0
  3. %%+ procset Adobe_cmykcolor 1.1 0
  4. %%+ procset Adobe_cshow 1.1 0
  5. %%+ procset Adobe_customcolor 1.0 0
  6. %%+ procset Adobe_IllustratorA_AI3 1.0 1
  7. %AI3_ColorUsage: Black&White
  8. %%DocumentCustomColors: (*annotation)
  9. %%+ (*cut)
  10. %%+ (*crease)
  11. %%+ (*perf)
  12. %%+ (*slit_score)
  13. %%+ (*cut_&_crease)
  14. %%+ (*perf_in_channel)
  15. %%+ (*glue_assist)
  16. %%+ (*reverse_crease)
  17. %%+ (*reverse_slit_score)
  18. %%+ (*print_registration)
  19. %%+ (*bleed)
  20. %%+ (*unknifed_diecuts)
  21. %%+ (*special_rules)
  22. %%+ (*print_images)
  23. %%+ (*mill_outline)
  24. %%+ (*half_crease)
  25. %%+ (*nick)
  26. %%+ (*text)
  27. %%CMYKCustomColor: 0.00 0.00 0.00 1.00 (*annotation)
  28. %%+ 0.00 0.00 0.00 1.00 (*cut)
  29. %%+ 0.00 0.00 0.00 1.00 (*crease)
  30. %%+ 0.00 0.00 0.00 1.00 (*perf)
  31. %%+ 0.00 0.00 0.00 1.00 (*slit_score)
  32. %%+ 0.00 0.00 0.00 1.00 (*cut_&_crease)
  33. %%+ 0.00 0.00 0.00 1.00 (*perf_in_channel)
  34. %%+ 0.00 0.00 0.00 1.00 (*glue_assist)
  35. %%+ 0.00 0.00 0.00 1.00 (*reverse_crease)
  36. %%+ 0.00 0.00 0.00 1.00 (*reverse_slit_score)
  37. %%+ 0.00 0.00 0.00 1.00 (*print_registration)
  38. %%+ 0.00 0.00 0.00 1.00 (*bleed)
  39. %%+ 0.00 0.00 0.00 1.00 (*unknifed_diecuts)
  40. %%+ 0.00 0.00 0.00 1.00 (*special_rules)
  41. %%+ 0.00 0.00 0.00 1.00 (*print_images)
  42. %%+ 0.00 0.00 0.00 1.00 (*mill_outline)
  43. %%+ 0.00 0.00 0.00 1.00 (*half_crease)
  44. %%+ 0.00 0.00 0.00 1.00 (*nick)
  45. %%+ 0.00 0.00 0.00 1.00 (*text)
  46. %AI3_TemplateBox: 0 183 0 183
  47. %AI3_TileBox: 0 0 373 584
  48. %AI3_DocumentPreview: None
  49. %%EndComments
  50. %%BeginProlog
  51.  
  52.  
  53. %%BeginResource: procset Adobe_packedarray 2.0 0
  54.  
  55.  
  56. %%Title: (Packed Array Operators)
  57.  
  58.  
  59. %%Version: 2.0 
  60.  
  61.  
  62. %%CreationDate: (8/2/90) ()
  63.  
  64.  
  65. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  66.  
  67.  
  68. userdict /Adobe_packedarray 5 dict dup begin put
  69.  
  70.  
  71. /initialize            % - initialize -
  72.  
  73.  
  74. {
  75.  
  76.  
  77. /packedarray where
  78.  
  79.  
  80.     {
  81.  
  82.  
  83.     pop
  84.  
  85.  
  86.     }
  87.  
  88.  
  89.     {
  90.  
  91.  
  92.     Adobe_packedarray begin
  93.  
  94.  
  95.     Adobe_packedarray
  96.  
  97.  
  98.         {
  99.  
  100.  
  101.         dup xcheck
  102.  
  103.  
  104.             {
  105.  
  106.  
  107.             bind
  108.  
  109.  
  110.             } if
  111.  
  112.  
  113.         userdict 3 1 roll put
  114.  
  115.  
  116.         } forall
  117.  
  118.  
  119.     end
  120.  
  121.  
  122.     } ifelse
  123.  
  124.  
  125. } def
  126.  
  127.  
  128. /terminate            % - terminate -
  129.  
  130.  
  131. {
  132.  
  133.  
  134. } def
  135.  
  136.  
  137. /packedarray        % arguments count packedarray array
  138.  
  139.  
  140. {
  141.  
  142.  
  143. array astore readonly
  144.  
  145.  
  146. } def
  147.  
  148.  
  149. /setpacking            % boolean setpacking -
  150.  
  151.  
  152. {
  153.  
  154.  
  155. pop
  156.  
  157.  
  158. } def
  159.  
  160.  
  161. /currentpacking        % - setpacking boolean
  162.  
  163.  
  164. {
  165.  
  166.  
  167. false
  168.  
  169.  
  170. } def
  171.  
  172.  
  173. currentdict readonly pop end
  174.  
  175.  
  176. %%EndResource
  177.  
  178.  
  179. Adobe_packedarray /initialize get exec
  180.  
  181.  
  182. %%BeginResource: procset Adobe_cmykcolor 1.1 0
  183.  
  184.  
  185. %%Title: (CMYK Color Operators)
  186.  
  187.  
  188. %%Version: 1.1 
  189.  
  190.  
  191. %%CreationDate: (1/23/89) ()
  192.  
  193.  
  194. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  195.  
  196.  
  197. currentpacking true setpacking
  198.  
  199.  
  200. userdict /Adobe_cmykcolor 4 dict dup begin put
  201.  
  202.  
  203. /initialize            % - initialize -
  204.  
  205.  
  206. {
  207.  
  208.  
  209. /setcmykcolor where
  210.  
  211.  
  212.     {
  213.  
  214.  
  215.     pop
  216.  
  217.  
  218.     }
  219.  
  220.  
  221.     {
  222.  
  223.  
  224.     userdict /Adobe_cmykcolor_vars 2 dict dup begin put
  225.  
  226.  
  227.     /_setrgbcolor
  228.  
  229.  
  230.         /setrgbcolor load def
  231.  
  232.  
  233.     /_currentrgbcolor
  234.  
  235.  
  236.         /currentrgbcolor load def
  237.  
  238.  
  239.     Adobe_cmykcolor begin
  240.  
  241.  
  242.     Adobe_cmykcolor
  243.  
  244.  
  245.         {
  246.  
  247.  
  248.         dup xcheck
  249.  
  250.  
  251.             {
  252.  
  253.  
  254.             bind
  255.  
  256.  
  257.             } if
  258.  
  259.  
  260.         pop pop
  261.  
  262.  
  263.         } forall
  264.  
  265.  
  266.     end
  267.  
  268.  
  269.     end
  270.  
  271.  
  272.     Adobe_cmykcolor begin
  273.  
  274.  
  275.     } ifelse
  276.  
  277.  
  278. } def
  279.  
  280.  
  281. /terminate            % - terminate -
  282.  
  283.  
  284. {
  285.  
  286.  
  287. currentdict Adobe_cmykcolor eq
  288.  
  289.  
  290.     {
  291.  
  292.  
  293.     end
  294.  
  295.  
  296.     } if
  297.  
  298.  
  299. } def
  300.  
  301.  
  302. /setcmykcolor        % cyan magenta yellow black setcmykcolor -
  303.  
  304.  
  305. {
  306.  
  307.  
  308. 1 sub 4 1 roll
  309.  
  310.  
  311. 3
  312.  
  313.  
  314.     {
  315.  
  316.  
  317.     3 index add neg dup 0 lt
  318.  
  319.  
  320.         {
  321.  
  322.  
  323.         pop 0
  324.  
  325.  
  326.         } if
  327.  
  328.  
  329.     3 1 roll
  330.  
  331.  
  332.     } repeat
  333.  
  334.  
  335. Adobe_cmykcolor_vars /_setrgbcolor get exec
  336.  
  337.  
  338. pop
  339.  
  340.  
  341. } def 
  342.  
  343.  
  344. /currentcmykcolor    % - currentcmykcolor cyan magenta yellow black
  345.  
  346.  
  347. {
  348.  
  349.  
  350. Adobe_cmykcolor_vars /_currentrgbcolor get exec
  351.  
  352.  
  353. 3
  354.  
  355.  
  356.     {
  357.  
  358.  
  359.     1 sub neg 3 1 roll
  360.  
  361.  
  362.     } repeat
  363.  
  364.  
  365. 0
  366.  
  367.  
  368. } def
  369.  
  370.  
  371. currentdict readonly pop end
  372.  
  373.  
  374. setpacking
  375.  
  376.  
  377. %%EndResource
  378.  
  379.  
  380. %%BeginResource: procset Adobe_cshow 1.1 0
  381.  
  382.  
  383. %%Title: (cshow Operator)
  384.  
  385.  
  386. %%Version: 1.1 
  387.  
  388.  
  389. %%CreationDate: (1/23/89) ()
  390.  
  391.  
  392. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  393.  
  394.  
  395. currentpacking true setpacking
  396.  
  397.  
  398. userdict /Adobe_cshow 3 dict dup begin put
  399.  
  400.  
  401. /initialize            % - initialize -
  402.  
  403.  
  404. {
  405.  
  406.  
  407. /cshow where
  408.  
  409.  
  410.     {
  411.  
  412.  
  413.     pop
  414.  
  415.  
  416.     }
  417.  
  418.  
  419.     {
  420.  
  421.  
  422.     userdict /Adobe_cshow_vars 1 dict dup begin put
  423.  
  424.  
  425.     /_cshow        % - _cshow proc
  426.  
  427.  
  428.         {} def
  429.  
  430.  
  431.     Adobe_cshow begin
  432.  
  433.  
  434.     Adobe_cshow
  435.  
  436.  
  437.         {
  438.  
  439.  
  440.         dup xcheck
  441.  
  442.  
  443.             {
  444.  
  445.  
  446.             bind
  447.  
  448.  
  449.             } if
  450.  
  451.  
  452.         userdict 3 1 roll put
  453.  
  454.  
  455.         } forall
  456.  
  457.  
  458.     end
  459.  
  460.  
  461.     end
  462.  
  463.  
  464.     } ifelse
  465.  
  466.  
  467. } def
  468.  
  469.  
  470. /terminate            % - terminate -
  471.  
  472.  
  473. {
  474.  
  475.  
  476. } def
  477.  
  478.  
  479. /cshow                % proc string cshow -
  480.  
  481.  
  482. {
  483.  
  484.  
  485. exch
  486.  
  487.  
  488. Adobe_cshow_vars
  489.  
  490.  
  491.     exch /_cshow
  492.  
  493.  
  494.     exch put
  495.  
  496.  
  497.     {
  498.  
  499.  
  500.     0 0 Adobe_cshow_vars /_cshow get exec
  501.  
  502.  
  503.     } forall
  504.  
  505.  
  506. } def
  507.  
  508.  
  509. currentdict readonly pop end
  510.  
  511.  
  512. setpacking
  513.  
  514.  
  515. %%EndResource
  516.  
  517.  
  518. %%BeginResource: procset Adobe_customcolor 1.0 0
  519.  
  520.  
  521. %%Title: (Custom Color Operators)
  522.  
  523.  
  524. %%Version: 1.0 
  525.  
  526.  
  527. %%CreationDate: (5/9/88) ()
  528.  
  529.  
  530. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  531.  
  532.  
  533. currentpacking true setpacking
  534.  
  535.  
  536. userdict /Adobe_customcolor 5 dict dup begin put
  537.  
  538.  
  539. /initialize            % - initialize -
  540.  
  541.  
  542. {
  543.  
  544.  
  545. /setcustomcolor where
  546.  
  547.  
  548.     {
  549.  
  550.  
  551.     pop
  552.  
  553.  
  554.     }
  555.  
  556.  
  557.     {
  558.  
  559.  
  560.     Adobe_customcolor begin
  561.  
  562.  
  563.     Adobe_customcolor
  564.  
  565.  
  566.         {
  567.  
  568.  
  569.         dup xcheck
  570.  
  571.  
  572.             {
  573.  
  574.  
  575.             bind
  576.  
  577.  
  578.             } if
  579.  
  580.  
  581.         pop pop
  582.  
  583.  
  584.         } forall
  585.  
  586.  
  587.     end
  588.  
  589.  
  590.     Adobe_customcolor begin
  591.  
  592.  
  593.     } ifelse
  594.  
  595.  
  596. } def
  597.  
  598.  
  599. /terminate            % - terminate -
  600.  
  601.  
  602. {
  603.  
  604.  
  605. currentdict Adobe_customcolor eq
  606.  
  607.  
  608.     {
  609.  
  610.  
  611.     end
  612.  
  613.  
  614.     } if
  615.  
  616.  
  617. } def
  618.  
  619.  
  620. /findcmykcustomcolor    % cyan magenta yellow black name findcmykcustomcolor object
  621.  
  622.  
  623. {
  624.  
  625.  
  626. 5 packedarray
  627.  
  628.  
  629. }  def
  630.  
  631.  
  632. /setcustomcolor        % object tint setcustomcolor -
  633.  
  634.  
  635. {
  636.  
  637.  
  638. exch
  639.  
  640.  
  641. aload pop pop
  642.  
  643.  
  644. 4
  645.  
  646.  
  647.     {
  648.  
  649.  
  650.     4 index mul 4 1 roll
  651.  
  652.  
  653.     } repeat
  654.  
  655.  
  656. 5 -1 roll pop
  657.  
  658.  
  659. setcmykcolor
  660.  
  661.  
  662. } def
  663.  
  664.  
  665. /setoverprint        % boolean setoverprint -
  666.  
  667.  
  668. {
  669.  
  670.  
  671. pop
  672.  
  673.  
  674. } def
  675.  
  676.  
  677. currentdict readonly pop end
  678.  
  679.  
  680. setpacking
  681.  
  682.  
  683. %%EndResource
  684.  
  685.  
  686. %%BeginResource: procset Adobe_typography_AI3 1.1 0
  687.  
  688.  
  689. %%Title: (Typography Operators)
  690.  
  691.  
  692. %%Version: 1.0 
  693.  
  694.  
  695. %%CreationDate:(5/31/90) ()
  696.  
  697.  
  698. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  699.  
  700.  
  701. currentpacking true setpacking
  702.  
  703.  
  704. userdict /Adobe_typography_AI3 47 dict dup begin put
  705.  
  706.  
  707. /initialize            % - initialize -
  708.  
  709.  
  710. {
  711.  
  712.  
  713. /TZ
  714.  
  715.  
  716.  where
  717.  
  718.  
  719.     {
  720.  
  721.  
  722.     pop
  723.  
  724.  
  725.     }
  726.  
  727.  
  728.     {
  729.  
  730.  
  731.     Adobe_typography_AI3 begin
  732.  
  733.  
  734.     Adobe_typography_AI3
  735.  
  736.  
  737.         {
  738.  
  739.  
  740.         dup xcheck
  741.  
  742.  
  743.             {
  744.  
  745.  
  746.             bind
  747.  
  748.  
  749.             } if
  750.  
  751.  
  752.         pop pop
  753.  
  754.  
  755.         } forall
  756.  
  757.  
  758.     end
  759.  
  760.  
  761.     Adobe_typography_AI3 begin
  762.  
  763.  
  764.     } ifelse
  765.  
  766.  
  767. } def
  768.  
  769.  
  770. /terminate            % - terminate -
  771.  
  772.  
  773. {
  774.  
  775.  
  776. currentdict Adobe_typography_AI3 eq
  777.  
  778.  
  779.     {
  780.  
  781.  
  782.     end
  783.  
  784.  
  785.     } if
  786.  
  787.  
  788. } def
  789.  
  790.  
  791. % [ number value stream [ array for encoding modification ] modifyEncoding ==> [ modified array ]
  792.  
  793.  
  794. /modifyEncoding
  795.  
  796.  
  797. {
  798.  
  799.  
  800.     /_tempEncode exch ddef
  801.  
  802.  
  803.     
  804.  
  805.  
  806.     % pointer for sequential encodings
  807.  
  808.  
  809.     /_pntr 0 ddef
  810.  
  811.  
  812.     
  813.  
  814.  
  815.     {
  816.  
  817.  
  818.         % get bottom object
  819.  
  820.  
  821.         counttomark -1 roll
  822.  
  823.  
  824.         % is it a mark ?
  825.  
  826.  
  827.         dup type dup /marktype eq         
  828.  
  829.  
  830.         {
  831.  
  832.  
  833.             % exit
  834.  
  835.  
  836.             pop pop exit
  837.  
  838.  
  839.         }
  840.  
  841.  
  842.         {
  843.  
  844.  
  845.             % ... object ... type ....
  846.  
  847.  
  848.             % insert if a nametype
  849.  
  850.  
  851.             /nametype eq
  852.  
  853.  
  854.             {
  855.  
  856.  
  857.                 % insert the name at _pntr and increment pointer
  858.  
  859.  
  860.                 _tempEncode /_pntr dup load dup 3 1 roll 1 add ddef 3 -1 roll
  861.  
  862.  
  863.                 put
  864.  
  865.  
  866.             }
  867.  
  868.  
  869.             {
  870.  
  871.  
  872.                 % reset _pntr if it's a number
  873.  
  874.  
  875.                 /_pntr exch ddef                    
  876.  
  877.  
  878.             }
  879.  
  880.  
  881.             ifelse
  882.  
  883.  
  884.         }
  885.  
  886.  
  887.         ifelse
  888.  
  889.  
  890.     }
  891.  
  892.  
  893.     loop    
  894.  
  895.  
  896.     
  897.  
  898.  
  899.     % return the modified encoding
  900.  
  901.  
  902.     _tempEncode
  903.  
  904.  
  905. }
  906.  
  907.  
  908. def
  909.  
  910.  
  911. /TE    % Set std platform encoding     % (encoding pairs) TE -
  912.  
  913.  
  914. {
  915.  
  916.  
  917.     StandardEncoding 256 array copy modifyEncoding 
  918.  
  919.  
  920.     /_nativeEncoding exch def
  921.  
  922.  
  923. } def
  924.  
  925.  
  926. % re-define font
  927.  
  928.  
  929. % expected arguments
  930.  
  931.  
  932. % for 'normal fonts : 
  933.  
  934.  
  935. % [ /_Helvetica-Bold/Helvetica-Bold direction fontScript defaultEncoding TZ
  936.  
  937.  
  938. %
  939.  
  940.  
  941. % for cartographic, pictographic, and expert fonts :
  942.  
  943.  
  944. % [ ... number value stream ... /_Symbol/Symbol 
  945.  
  946.  
  947. %    direction fontScript defaultEncoding TZ
  948.  
  949.  
  950. % for blended fonts w/ default encoding :
  951.  
  952.  
  953. % [ /_AdobeSans_20ULig1XCond-Bold/AdobeSans 
  954.  
  955.  
  956. %    direction fontScript defaultEncoding [ w0 w1 ... wn ] TZ
  957.  
  958.  
  959. % for blended fonts w/ special encoding :
  960.  
  961.  
  962. % [ ... number value stream ... /_AdobeSans_20ULig1XCond/AdobeSans 
  963.  
  964.  
  965. %    direction fontScript defaultEncoding [ w0 w1 ... wn ] TZ
  966.  
  967.  
  968. /TZ        
  969.  
  970.  
  971. {
  972.  
  973.  
  974.     % set weight vector (if present)
  975.  
  976.  
  977.     dup type /arraytype eq {/_wv exch def} {/_wv 0 def} ifelse 
  978.  
  979.  
  980.     % platform dependent coding flag
  981.  
  982.  
  983.     /_useNativeEncoding exch def
  984.  
  985.  
  986.     % pop fontScript & direction
  987.  
  988.  
  989.     pop pop
  990.  
  991.  
  992.     
  993.  
  994.  
  995.     % create a new dictionary with length
  996.  
  997.  
  998.     % equal to original dictionary length + 2
  999.  
  1000.  
  1001.     % copy all the key/value pairs except FID
  1002.  
  1003.  
  1004.     % call makeblended font with the weight values if _wv is an array
  1005.  
  1006.  
  1007.     findfont _wv type /arraytype eq {_wv makeblendedfont} if dup length 2 add dict
  1008.  
  1009.  
  1010.     
  1011.  
  1012.  
  1013.     begin
  1014.  
  1015.  
  1016.     
  1017.  
  1018.  
  1019.         % copy all the values but the FID
  1020.  
  1021.  
  1022.         % into the new dictionary
  1023.  
  1024.  
  1025.         mark exch
  1026.  
  1027.  
  1028.         {
  1029.  
  1030.  
  1031.             1 index /FID ne { def } if cleartomark mark
  1032.  
  1033.  
  1034.         }
  1035.  
  1036.  
  1037.         forall
  1038.  
  1039.  
  1040.         % discard last mark
  1041.  
  1042.  
  1043.         pop
  1044.  
  1045.  
  1046.         
  1047.  
  1048.  
  1049.         % define FontName
  1050.  
  1051.  
  1052.         /FontName exch def
  1053.  
  1054.  
  1055.         
  1056.  
  1057.  
  1058.         % if no re-encoding stream is present
  1059.  
  1060.  
  1061.         % then if the base encoding vector of the font
  1062.  
  1063.  
  1064.         % is the same as StandardEncoding
  1065.  
  1066.  
  1067.         % and the use platform encoding flag is true
  1068.  
  1069.  
  1070.         % then install AI platform encoding
  1071.  
  1072.  
  1073.         % else leave the base encoding in effect
  1074.  
  1075.  
  1076.         counttomark 0 eq
  1077.  
  1078.  
  1079.         {
  1080.  
  1081.  
  1082.             1 _useNativeEncoding eq
  1083.  
  1084.  
  1085.             {
  1086.  
  1087.  
  1088.                 /Encoding _nativeEncoding def
  1089.  
  1090.  
  1091.             }
  1092.  
  1093.  
  1094.             if
  1095.  
  1096.  
  1097.             % clean up
  1098.  
  1099.  
  1100.             cleartomark
  1101.  
  1102.  
  1103.         }
  1104.  
  1105.  
  1106.         {    
  1107.  
  1108.  
  1109.             % custom encoding to be done
  1110.  
  1111.  
  1112.             % start off with a copy of the font's standard encoding
  1113.  
  1114.  
  1115.             /Encoding load 256 array copy 
  1116.  
  1117.  
  1118.             modifyEncoding /Encoding exch def
  1119.  
  1120.  
  1121.         }
  1122.  
  1123.  
  1124.         ifelse        
  1125.  
  1126.  
  1127.         FontName currentdict
  1128.  
  1129.  
  1130.     end
  1131.  
  1132.  
  1133.     
  1134.  
  1135.  
  1136.     % register the new font
  1137.  
  1138.  
  1139.     definefont pop
  1140.  
  1141.  
  1142. }
  1143.  
  1144.  
  1145. def
  1146.  
  1147.  
  1148. % text painting operators
  1149.  
  1150.  
  1151. /tr                    % string tr ax ay string 
  1152.  
  1153.  
  1154. {
  1155.  
  1156.  
  1157. _ax _ay 3 2 roll
  1158.  
  1159.  
  1160. } def
  1161.  
  1162.  
  1163. /trj                % string trj cx cy fillchar ax ay string 
  1164.  
  1165.  
  1166. {
  1167.  
  1168.  
  1169. _cx _cy _sp _ax _ay 6 5 roll
  1170.  
  1171.  
  1172. } def
  1173.  
  1174.  
  1175. /a0
  1176.  
  1177.  
  1178. {
  1179.  
  1180.  
  1181. /Tx    % text                            % textString Tx -
  1182.  
  1183.  
  1184.     {
  1185.  
  1186.  
  1187.     dup 
  1188.  
  1189.  
  1190.     currentpoint 3 2 roll
  1191.  
  1192.  
  1193.     tr _psf
  1194.  
  1195.  
  1196.     newpath moveto
  1197.  
  1198.  
  1199.     tr _ctm _pss
  1200.  
  1201.  
  1202.     } ddef
  1203.  
  1204.  
  1205. /Tj    % justified text                % textString Tj -
  1206.  
  1207.  
  1208.     {
  1209.  
  1210.  
  1211.     dup
  1212.  
  1213.  
  1214.     currentpoint 3 2 roll
  1215.  
  1216.  
  1217.     trj _pjsf
  1218.  
  1219.  
  1220.     newpath moveto
  1221.  
  1222.  
  1223.     trj _ctm _pjss
  1224.  
  1225.  
  1226.     } ddef
  1227.  
  1228.  
  1229.     
  1230.  
  1231.  
  1232. } def
  1233.  
  1234.  
  1235. /a1
  1236.  
  1237.  
  1238. {
  1239.  
  1240.  
  1241. /Tx    % text                            % textString Tx -
  1242.  
  1243.  
  1244.     {
  1245.  
  1246.  
  1247.     dup currentpoint 4 2 roll gsave
  1248.  
  1249.  
  1250.     dup currentpoint 3 2 roll
  1251.  
  1252.  
  1253.     tr _psf
  1254.  
  1255.  
  1256.     newpath moveto
  1257.  
  1258.  
  1259.     tr _ctm _pss
  1260.  
  1261.  
  1262.     grestore 3 1 roll moveto tr sp
  1263.  
  1264.  
  1265.     } ddef
  1266.  
  1267.  
  1268. /Tj    % justified text                % textString Tj -
  1269.  
  1270.  
  1271.     {
  1272.  
  1273.  
  1274.     dup currentpoint 4 2 roll gsave
  1275.  
  1276.  
  1277.     dup currentpoint 3 2 roll
  1278.  
  1279.  
  1280.     trj _pjsf
  1281.  
  1282.  
  1283.     newpath moveto
  1284.  
  1285.  
  1286.     trj _ctm _pjss
  1287.  
  1288.  
  1289.     grestore 3 1 roll moveto tr sp
  1290.  
  1291.  
  1292.     } ddef
  1293.  
  1294.  
  1295.     
  1296.  
  1297.  
  1298. } def
  1299.  
  1300.  
  1301. /e0
  1302.  
  1303.  
  1304. {
  1305.  
  1306.  
  1307. /Tx    % text                            % textString Tx -
  1308.  
  1309.  
  1310.     {
  1311.  
  1312.  
  1313.     tr _psf
  1314.  
  1315.  
  1316.     } ddef
  1317.  
  1318.  
  1319. /Tj    % justified text                % textString Tj -
  1320.  
  1321.  
  1322.     {
  1323.  
  1324.  
  1325.     trj _pjsf
  1326.  
  1327.  
  1328.     } ddef
  1329.  
  1330.  
  1331. } def
  1332.  
  1333.  
  1334. /e1
  1335.  
  1336.  
  1337. {
  1338.  
  1339.  
  1340. /Tx    % text                            % textString Tx -
  1341.  
  1342.  
  1343.     {
  1344.  
  1345.  
  1346.     dup currentpoint 4 2 roll gsave 
  1347.  
  1348.  
  1349.     tr _psf  
  1350.  
  1351.  
  1352.     grestore 3 1 roll moveto tr sp 
  1353.  
  1354.  
  1355.     } ddef
  1356.  
  1357.  
  1358. /Tj    % justified text                % textString Tj -
  1359.  
  1360.  
  1361.     {
  1362.  
  1363.  
  1364.     dup currentpoint 4 2 roll gsave 
  1365.  
  1366.  
  1367.     trj _pjsf
  1368.  
  1369.  
  1370.     grestore 3 1 roll moveto tr sp 
  1371.  
  1372.  
  1373.     } ddef
  1374.  
  1375.  
  1376. } def
  1377.  
  1378.  
  1379. /i0
  1380.  
  1381.  
  1382. {
  1383.  
  1384.  
  1385. /Tx    % text                            % textString Tx -
  1386.  
  1387.  
  1388.     {
  1389.  
  1390.  
  1391.     tr sp
  1392.  
  1393.  
  1394.     } ddef
  1395.  
  1396.  
  1397. /Tj    % justified text                % textString Tj -
  1398.  
  1399.  
  1400.     {
  1401.  
  1402.  
  1403.     trj jsp
  1404.  
  1405.  
  1406.     } ddef
  1407.  
  1408.  
  1409. } def
  1410.  
  1411.  
  1412. /i1
  1413.  
  1414.  
  1415. {
  1416.  
  1417.  
  1418. W N
  1419.  
  1420.  
  1421. } def
  1422.  
  1423.  
  1424. /o0
  1425.  
  1426.  
  1427. {
  1428.  
  1429.  
  1430. /Tx    % text                            % textString Tx -
  1431.  
  1432.  
  1433.     {
  1434.  
  1435.  
  1436.     tr sw rmoveto
  1437.  
  1438.  
  1439.     } ddef
  1440.  
  1441.  
  1442. /Tj    % justified text                % textString Tj -
  1443.  
  1444.  
  1445.     {
  1446.  
  1447.  
  1448.     trj swj rmoveto
  1449.  
  1450.  
  1451.     } ddef
  1452.  
  1453.  
  1454. } def
  1455.  
  1456.  
  1457. /r0
  1458.  
  1459.  
  1460. {
  1461.  
  1462.  
  1463. /Tx    % text                            % textString Tx -
  1464.  
  1465.  
  1466.     {
  1467.  
  1468.  
  1469.     tr _ctm _pss
  1470.  
  1471.  
  1472.     } ddef
  1473.  
  1474.  
  1475. /Tj    % justified text                % textString Tj -
  1476.  
  1477.  
  1478.     {
  1479.  
  1480.  
  1481.     trj _ctm _pjss
  1482.  
  1483.  
  1484.     } ddef
  1485.  
  1486.  
  1487. } def
  1488.  
  1489.  
  1490. /r1
  1491.  
  1492.  
  1493. {
  1494.  
  1495.  
  1496. /Tx    % text                            % textString Tx -
  1497.  
  1498.  
  1499.     {
  1500.  
  1501.  
  1502.     dup currentpoint 4 2 roll currentpoint gsave newpath moveto
  1503.  
  1504.  
  1505.     tr _ctm _pss 
  1506.  
  1507.  
  1508.     grestore 3 1 roll moveto tr sp 
  1509.  
  1510.  
  1511.     } ddef
  1512.  
  1513.  
  1514. /Tj    % justified text                % textString Tj -
  1515.  
  1516.  
  1517.     {
  1518.  
  1519.  
  1520.     dup currentpoint 4 2 roll currentpoint gsave newpath moveto
  1521.  
  1522.  
  1523.     trj _ctm _pjss
  1524.  
  1525.  
  1526.     grestore 3 1 roll moveto tr sp 
  1527.  
  1528.  
  1529.     } ddef
  1530.  
  1531.  
  1532. } def
  1533.  
  1534.  
  1535. % font operators
  1536.  
  1537.  
  1538. % Binding
  1539.  
  1540.  
  1541. /To    % begin text                     % bindType To -
  1542.  
  1543.  
  1544. {
  1545.  
  1546.  
  1547.     pop _ctm currentmatrix pop
  1548.  
  1549.  
  1550. } def
  1551.  
  1552.  
  1553. /TO    % end text                    % TO -
  1554.  
  1555.  
  1556. {
  1557.  
  1558.  
  1559.     Te _ctm setmatrix newpath
  1560.  
  1561.  
  1562. } def
  1563.  
  1564.  
  1565. % Text paths
  1566.  
  1567.  
  1568. /Tp    % begin text path                % a b c d tx ty startPt Tp -
  1569.  
  1570.  
  1571. {
  1572.  
  1573.  
  1574.     pop _tm astore pop _ctm setmatrix 
  1575.  
  1576.  
  1577.     _tDict begin /W {} def /h {} def
  1578.  
  1579.  
  1580. } def
  1581.  
  1582.  
  1583. /TP    % end text path                    % TP -
  1584.  
  1585.  
  1586. {
  1587.  
  1588.  
  1589.     end
  1590.  
  1591.  
  1592.     iTm 0 0 moveto
  1593.  
  1594.  
  1595. } def
  1596.  
  1597.  
  1598. % Render mode & matrix operators
  1599.  
  1600.  
  1601. /Tr    % begin render                    % render Tr - 
  1602.  
  1603.  
  1604. {
  1605.  
  1606.  
  1607.     _render 3 le {currentpoint newpath moveto} if
  1608.  
  1609.  
  1610.     dup 8 eq {pop 0} {dup 9 eq {pop 1} if} ifelse
  1611.  
  1612.  
  1613.     dup /_render exch ddef
  1614.  
  1615.  
  1616.     _renderStart exch get load exec
  1617.  
  1618.  
  1619. } def
  1620.  
  1621.  
  1622. /iTm % internal set text matrix        % - iTm -    (uses _tm as implicit argument)
  1623.  
  1624.  
  1625. {
  1626.  
  1627.  
  1628. _ctm setmatrix _tm concat 0 _rise translate _hs 1 scale
  1629.  
  1630.  
  1631. } def
  1632.  
  1633.  
  1634. /Tm % set text matrix                % a b c d tx ty Tm -
  1635.  
  1636.  
  1637. {
  1638.  
  1639.  
  1640. _tm astore pop iTm 0 0 moveto
  1641.  
  1642.  
  1643. } def
  1644.  
  1645.  
  1646. /Td % translate text matrix         % tx ty Td -
  1647.  
  1648.  
  1649. {
  1650.  
  1651.  
  1652. _mtx translate _tm _tm concatmatrix pop iTm 0 0 moveto
  1653.  
  1654.  
  1655. } def
  1656.  
  1657.  
  1658. /Te    % end render                    % - Te -
  1659.  
  1660.  
  1661. {
  1662.  
  1663.  
  1664.     _render -1 eq {} {_renderEnd _render get dup null ne {load exec} {pop} ifelse} ifelse
  1665.  
  1666.  
  1667.     /_render -1 ddef
  1668.  
  1669.  
  1670. } def
  1671.  
  1672.  
  1673. % Attributes
  1674.  
  1675.  
  1676. /Ta    % set alignment                    % alignment Ta -
  1677.  
  1678.  
  1679. {
  1680.  
  1681.  
  1682. pop
  1683.  
  1684.  
  1685. } def
  1686.  
  1687.  
  1688. /Tf    % set font name and size        % fontname size Tf -
  1689.  
  1690.  
  1691. {
  1692.  
  1693.  
  1694. dup 1000 div /_fScl exch ddef
  1695.  
  1696.  
  1697. exch findfont exch scalefont setfont
  1698.  
  1699.  
  1700. } def
  1701.  
  1702.  
  1703. /Tl    % set leading                    % leading paragraphLeading Tl -
  1704.  
  1705.  
  1706. {
  1707.  
  1708.  
  1709. pop
  1710.  
  1711.  
  1712. 0 exch _leading astore pop
  1713.  
  1714.  
  1715. } def
  1716.  
  1717.  
  1718. /Tt    % set user tracking                % userTracking Tt -
  1719.  
  1720.  
  1721. {
  1722.  
  1723.  
  1724. pop
  1725.  
  1726.  
  1727. } def
  1728.  
  1729.  
  1730. /TW % set word spacing                % minSpace optSpace maxSpace TW -
  1731.  
  1732.  
  1733. {
  1734.  
  1735.  
  1736. 3 npop
  1737.  
  1738.  
  1739. } def
  1740.  
  1741.  
  1742. /Tw    % set computed word spacing        % wordSpace Tw
  1743.  
  1744.  
  1745. {
  1746.  
  1747.  
  1748. /_cx exch ddef
  1749.  
  1750.  
  1751. } def
  1752.  
  1753.  
  1754. /TC % set character spacing            % minSpace optSpace maxSpace TC -
  1755.  
  1756.  
  1757. {
  1758.  
  1759.  
  1760. 3 npop
  1761.  
  1762.  
  1763. } def
  1764.  
  1765.  
  1766. /Tc    % set computed char spacing     % charSpace Tc -
  1767.  
  1768.  
  1769. {
  1770.  
  1771.  
  1772. /_ax exch ddef
  1773.  
  1774.  
  1775. } def
  1776.  
  1777.  
  1778. /Ts % set super/subscripting (rise)    % rise Ts -
  1779.  
  1780.  
  1781. {
  1782.  
  1783.  
  1784. /_rise exch ddef
  1785.  
  1786.  
  1787. currentpoint
  1788.  
  1789.  
  1790. iTm
  1791.  
  1792.  
  1793. moveto
  1794.  
  1795.  
  1796. } def
  1797.  
  1798.  
  1799. /Ti    % set indentation                % firstStartIndent otherStartIndent stopIndent Ti -
  1800.  
  1801.  
  1802. {
  1803.  
  1804.  
  1805. 3 npop
  1806.  
  1807.  
  1808. } def
  1809.  
  1810.  
  1811. /Tz % set horizontal scaling        % scalePercent Tz -
  1812.  
  1813.  
  1814. {
  1815.  
  1816.  
  1817. 100 div /_hs exch ddef
  1818.  
  1819.  
  1820. iTm
  1821.  
  1822.  
  1823. } def
  1824.  
  1825.  
  1826. /TA % set pairwise kerning            % autoKern TA -
  1827.  
  1828.  
  1829.                                     %    autoKern = 0 -> no pair kerning
  1830.  
  1831.  
  1832.                                     %             = 1 -> automatic pair kerning
  1833.  
  1834.  
  1835. {
  1836.  
  1837.  
  1838. pop
  1839.  
  1840.  
  1841. } def
  1842.  
  1843.  
  1844. /Tq % set hanging quotes            % hangingQuotes Tq -
  1845.  
  1846.  
  1847.                                     %    hangingQuotes     = 0 -> no hanging quotes
  1848.  
  1849.  
  1850.                                     %                     = 1 -> hanging quotes
  1851.  
  1852.  
  1853. {
  1854.  
  1855.  
  1856. pop
  1857.  
  1858.  
  1859. } def
  1860.  
  1861.  
  1862. % Text Bodies
  1863.  
  1864.  
  1865. /TX {pop} def
  1866.  
  1867.  
  1868. %/Tx    % non-justified text            % textString Tx -
  1869.  
  1870.  
  1871. %/Tj    % justified text                % textString Tj -
  1872.  
  1873.  
  1874. /Tk    % kern                            % autoKern kernValue Tk -
  1875.  
  1876.  
  1877.                                     %      autoKern = 0 -> manual kern, = 1 -> auto kern
  1878.  
  1879.  
  1880.                                     %    kernValue = kern value in em/1000 space
  1881.  
  1882.  
  1883. {
  1884.  
  1885.  
  1886. exch pop _fScl mul neg 0 rmoveto
  1887.  
  1888.  
  1889. } def
  1890.  
  1891.  
  1892. /TK    % non-printing kern                % autoKern kernValue TK -
  1893.  
  1894.  
  1895. {
  1896.  
  1897.  
  1898. 2 npop
  1899.  
  1900.  
  1901. } def
  1902.  
  1903.  
  1904. /T* % carriage return & line feed    % - T* -
  1905.  
  1906.  
  1907. {
  1908.  
  1909.  
  1910. _leading aload pop neg Td
  1911.  
  1912.  
  1913. } def
  1914.  
  1915.  
  1916. /T*- % carriage return & negative line feed    % - T*- -
  1917.  
  1918.  
  1919. {
  1920.  
  1921.  
  1922. _leading aload pop Td
  1923.  
  1924.  
  1925. } def
  1926.  
  1927.  
  1928. /T-    % print a discretionary hyphen    % - T- -
  1929.  
  1930.  
  1931. {
  1932.  
  1933.  
  1934. _hyphen Tx
  1935.  
  1936.  
  1937. } def
  1938.  
  1939.  
  1940. /T+    % discretionary hyphen hyphen    % - T+ -
  1941.  
  1942.  
  1943. {} def
  1944.  
  1945.  
  1946. /TR    % reset pattern matrix             % a b c d tx ty TR -
  1947.  
  1948.  
  1949. {
  1950.  
  1951.  
  1952. _ctm currentmatrix pop     
  1953.  
  1954.  
  1955. _tm astore pop 
  1956.  
  1957.  
  1958. iTm 0 0 moveto 
  1959.  
  1960.  
  1961. } def
  1962.  
  1963.  
  1964. /TS    % special chars                    % textString justified TS -
  1965.  
  1966.  
  1967. {
  1968.  
  1969.  
  1970. 0 eq {Tx} {Tj} ifelse
  1971.  
  1972.  
  1973. } def
  1974.  
  1975.  
  1976. currentdict readonly pop end
  1977.  
  1978.  
  1979. setpacking
  1980.  
  1981.  
  1982. %%EndResource
  1983.  
  1984.  
  1985. %%BeginResource: procset Adobe_IllustratorA_AI3 1.0 2
  1986.  
  1987.  
  1988. %%Title: (Adobe Illustrator (R) Version 3.0 Abbreviated Prolog)
  1989.  
  1990.  
  1991. %%Version: 1.0 
  1992.  
  1993.  
  1994. %%CreationDate: (7/22/89) ()
  1995.  
  1996.  
  1997. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  1998.  
  1999.  
  2000. currentpacking true setpacking
  2001.  
  2002.  
  2003. userdict /Adobe_IllustratorA_AI3 61 dict dup begin put
  2004.  
  2005.  
  2006. % initialization
  2007.  
  2008.  
  2009. /initialize                % - initialize -
  2010.  
  2011.  
  2012. {
  2013.  
  2014.  
  2015. % 47 vars, but leave slack of 10 entries for custom Postscript fragments
  2016.  
  2017.  
  2018. userdict /Adobe_IllustratorA_AI3_vars 57 dict dup begin put
  2019.  
  2020.  
  2021. % paint operands
  2022.  
  2023.  
  2024. /_lp /none def
  2025.  
  2026.  
  2027. /_pf {} def
  2028.  
  2029.  
  2030. /_ps {} def
  2031.  
  2032.  
  2033. /_psf {} def
  2034.  
  2035.  
  2036. /_pss {} def
  2037.  
  2038.  
  2039. /_pjsf {} def
  2040.  
  2041.  
  2042. /_pjss {} def
  2043.  
  2044.  
  2045. /_pola 0 def
  2046.  
  2047.  
  2048. /_doClip 0 def
  2049.  
  2050.  
  2051. % paint operators
  2052.  
  2053.  
  2054. /cf    currentflat def    % - cf flatness
  2055.  
  2056.  
  2057. % typography operands
  2058.  
  2059.  
  2060. /_tm matrix def
  2061.  
  2062.  
  2063. /_renderStart [/e0 /r0 /a0 /o0 /e1 /r1 /a1 /i0] def 
  2064.  
  2065.  
  2066. /_renderEnd [null null null null /i1 /i1 /i1 /i1] def
  2067.  
  2068.  
  2069. /_render -1 def
  2070.  
  2071.  
  2072. /_rise 0 def
  2073.  
  2074.  
  2075. /_ax 0 def            % x character spacing    (_ax, _ay, _cx, _cy follows awidthshow naming convention)
  2076.  
  2077.  
  2078. /_ay 0 def            % y character spacing
  2079.  
  2080.  
  2081. /_cx 0 def            % x word spacing
  2082.  
  2083.  
  2084. /_cy 0 def            % y word spacing
  2085.  
  2086.  
  2087. /_leading [0 0] def
  2088.  
  2089.  
  2090. /_ctm matrix def
  2091.  
  2092.  
  2093. /_mtx matrix def
  2094.  
  2095.  
  2096. /_sp 16#020 def
  2097.  
  2098.  
  2099. /_hyphen (-) def
  2100.  
  2101.  
  2102. /_fScl 0 def
  2103.  
  2104.  
  2105. /_cnt 0 def
  2106.  
  2107.  
  2108. /_hs 1 def
  2109.  
  2110.  
  2111. /_nativeEncoding 0 def
  2112.  
  2113.  
  2114. /_useNativeEncoding 0 def
  2115.  
  2116.  
  2117. /_tempEncode 0 def
  2118.  
  2119.  
  2120. /_pntr 0 def
  2121.  
  2122.  
  2123. /_tDict 2 dict def
  2124.  
  2125.  
  2126. % typography operators
  2127.  
  2128.  
  2129. /Tx {} def
  2130.  
  2131.  
  2132. /Tj {} def
  2133.  
  2134.  
  2135. % compound path operators
  2136.  
  2137.  
  2138. /CRender {} def
  2139.  
  2140.  
  2141. % printing
  2142.  
  2143.  
  2144. /_AI3_savepage {} def
  2145.  
  2146.  
  2147. % color operands
  2148.  
  2149.  
  2150. /_gf null def
  2151.  
  2152.  
  2153. /_cf 4 array def
  2154.  
  2155.  
  2156. /_if null def
  2157.  
  2158.  
  2159. /_of false def
  2160.  
  2161.  
  2162. /_fc {} def
  2163.  
  2164.  
  2165. /_gs null def
  2166.  
  2167.  
  2168. /_cs 4 array def
  2169.  
  2170.  
  2171. /_is null def
  2172.  
  2173.  
  2174. /_os false def
  2175.  
  2176.  
  2177. /_sc {} def
  2178.  
  2179.  
  2180. /_i null def
  2181.  
  2182.  
  2183. Adobe_IllustratorA_AI3 begin
  2184.  
  2185.  
  2186. Adobe_IllustratorA_AI3
  2187.  
  2188.  
  2189.     {
  2190.  
  2191.  
  2192.     dup xcheck
  2193.  
  2194.  
  2195.         {
  2196.  
  2197.  
  2198.         bind
  2199.  
  2200.  
  2201.         } if
  2202.  
  2203.  
  2204.     pop pop
  2205.  
  2206.  
  2207.     } forall
  2208.  
  2209.  
  2210. end
  2211.  
  2212.  
  2213. end
  2214.  
  2215.  
  2216. Adobe_IllustratorA_AI3 begin
  2217.  
  2218.  
  2219. Adobe_IllustratorA_AI3_vars begin
  2220.  
  2221.  
  2222. newpath
  2223.  
  2224.  
  2225. } def
  2226.  
  2227.  
  2228. /terminate                % - terminate -
  2229.  
  2230.  
  2231. {
  2232.  
  2233.  
  2234. end
  2235.  
  2236.  
  2237. end
  2238.  
  2239.  
  2240. } def
  2241.  
  2242.  
  2243. % definition operators
  2244.  
  2245.  
  2246. /_                    % - _ null
  2247.  
  2248.  
  2249. null def
  2250.  
  2251.  
  2252. /ddef                % key value ddef -
  2253.  
  2254.  
  2255. {
  2256.  
  2257.  
  2258. Adobe_IllustratorA_AI3_vars 3 1 roll put
  2259.  
  2260.  
  2261. } def
  2262.  
  2263.  
  2264. /xput                % key value literal xput -
  2265.  
  2266.  
  2267. {
  2268.  
  2269.  
  2270. dup load dup length exch maxlength eq
  2271.  
  2272.  
  2273.     {
  2274.  
  2275.  
  2276.     dup dup load dup
  2277.  
  2278.  
  2279.     length 2 mul dict copy def
  2280.  
  2281.  
  2282.     } if
  2283.  
  2284.  
  2285. load begin def end
  2286.  
  2287.  
  2288. } def
  2289.  
  2290.  
  2291. /npop                % integer npop -
  2292.  
  2293.  
  2294. {
  2295.  
  2296.  
  2297.     {
  2298.  
  2299.  
  2300.     pop
  2301.  
  2302.  
  2303.     } repeat
  2304.  
  2305.  
  2306. } def
  2307.  
  2308.  
  2309. % marking operators
  2310.  
  2311.  
  2312. /sw                    % ax ay string sw x y 
  2313.  
  2314.  
  2315. {
  2316.  
  2317.  
  2318. dup length exch stringwidth
  2319.  
  2320.  
  2321. exch 5 -1 roll 3 index 1 sub mul add
  2322.  
  2323.  
  2324. 4 1 roll 3 1 roll 1 sub mul add
  2325.  
  2326.  
  2327. } def
  2328.  
  2329.  
  2330. /swj                % cx cy fillchar ax ay string swj x y
  2331.  
  2332.  
  2333. {
  2334.  
  2335.  
  2336. dup 4 1 roll
  2337.  
  2338.  
  2339. dup length exch stringwidth 
  2340.  
  2341.  
  2342. exch 5 -1 roll 3 index 1 sub mul add
  2343.  
  2344.  
  2345. 4 1 roll 3 1 roll 1 sub mul add 
  2346.  
  2347.  
  2348. 6 2 roll /_cnt 0 ddef
  2349.  
  2350.  
  2351. {1 index eq {/_cnt _cnt 1 add ddef} if} forall pop
  2352.  
  2353.  
  2354. exch _cnt mul exch _cnt mul 2 index add 4 1 roll 2 index add 4 1 roll pop pop
  2355.  
  2356.  
  2357. } def
  2358.  
  2359.  
  2360. /ss                    % ax ay string matrix ss -
  2361.  
  2362.  
  2363. {
  2364.  
  2365.  
  2366. 4 1 roll
  2367.  
  2368.  
  2369.     {                % matrix ax ay char 0 0 {proc} -
  2370.  
  2371.  
  2372.     2 npop 
  2373.  
  2374.  
  2375.     (0) exch 2 copy 0 exch put pop
  2376.  
  2377.  
  2378.     gsave
  2379.  
  2380.  
  2381.     false charpath currentpoint
  2382.  
  2383.  
  2384.     4 index setmatrix
  2385.  
  2386.  
  2387.     stroke
  2388.  
  2389.  
  2390.     grestore
  2391.  
  2392.  
  2393.     moveto
  2394.  
  2395.  
  2396.     2 copy rmoveto
  2397.  
  2398.  
  2399.     } exch cshow
  2400.  
  2401.  
  2402. 3 npop
  2403.  
  2404.  
  2405. } def
  2406.  
  2407.  
  2408. /jss                % cx cy fillchar ax ay string matrix jss -
  2409.  
  2410.  
  2411. {
  2412.  
  2413.  
  2414. 4 1 roll
  2415.  
  2416.  
  2417.     {                % cx cy fillchar matrix ax ay char 0 0 {proc} -   
  2418.  
  2419.  
  2420.     2 npop 
  2421.  
  2422.  
  2423.     (0) exch 2 copy 0 exch put 
  2424.  
  2425.  
  2426.     gsave
  2427.  
  2428.  
  2429.     _sp eq 
  2430.  
  2431.  
  2432.         {
  2433.  
  2434.  
  2435.         exch 6 index 6 index 6 index 5 -1 roll widthshow  
  2436.  
  2437.  
  2438.         currentpoint
  2439.  
  2440.  
  2441.         }
  2442.  
  2443.  
  2444.         {
  2445.  
  2446.  
  2447.         false charpath currentpoint
  2448.  
  2449.  
  2450.         4 index setmatrix stroke
  2451.  
  2452.  
  2453.         }ifelse
  2454.  
  2455.  
  2456.     grestore
  2457.  
  2458.  
  2459.     moveto
  2460.  
  2461.  
  2462.     2 copy rmoveto
  2463.  
  2464.  
  2465.     } exch cshow
  2466.  
  2467.  
  2468. 6 npop
  2469.  
  2470.  
  2471. } def
  2472.  
  2473.  
  2474. % path operators
  2475.  
  2476.  
  2477. /sp                    % ax ay string sp -
  2478.  
  2479.  
  2480. {
  2481.  
  2482.  
  2483.     {
  2484.  
  2485.  
  2486.     2 npop (0) exch
  2487.  
  2488.  
  2489.     2 copy 0 exch put pop
  2490.  
  2491.  
  2492.     false charpath
  2493.  
  2494.  
  2495.     2 copy rmoveto
  2496.  
  2497.  
  2498.     } exch cshow
  2499.  
  2500.  
  2501. 2 npop
  2502.  
  2503.  
  2504. } def
  2505.  
  2506.  
  2507. /jsp                    % cx cy fillchar ax ay string jsp -
  2508.  
  2509.  
  2510. {
  2511.  
  2512.  
  2513.     {                    % cx cy fillchar ax ay char 0 0 {proc} -
  2514.  
  2515.  
  2516.     2 npop 
  2517.  
  2518.  
  2519.     (0) exch 2 copy 0 exch put 
  2520.  
  2521.  
  2522.     _sp eq 
  2523.  
  2524.  
  2525.         {
  2526.  
  2527.  
  2528.         exch 5 index 5 index 5 index 5 -1 roll widthshow  
  2529.  
  2530.  
  2531.         }
  2532.  
  2533.  
  2534.         {
  2535.  
  2536.  
  2537.         false charpath
  2538.  
  2539.  
  2540.         }ifelse
  2541.  
  2542.  
  2543.     2 copy rmoveto
  2544.  
  2545.  
  2546.     } exch cshow
  2547.  
  2548.  
  2549. 5 npop
  2550.  
  2551.  
  2552. } def
  2553.  
  2554.  
  2555. % path construction operators
  2556.  
  2557.  
  2558. /pl                % x y pl x y
  2559.  
  2560.  
  2561. {
  2562.  
  2563.  
  2564. transform
  2565.  
  2566.  
  2567. 0.25 sub round 0.25 add exch
  2568.  
  2569.  
  2570. 0.25 sub round 0.25 add exch
  2571.  
  2572.  
  2573. itransform
  2574.  
  2575.  
  2576. } def
  2577.  
  2578.  
  2579. /setstrokeadjust where
  2580.  
  2581.  
  2582.     {
  2583.  
  2584.  
  2585.     pop true setstrokeadjust
  2586.  
  2587.  
  2588.     /c                % x1 y1 x2 y2 x3 y3 c -
  2589.  
  2590.  
  2591.     {
  2592.  
  2593.  
  2594.     curveto
  2595.  
  2596.  
  2597.     } def
  2598.  
  2599.  
  2600.     /C
  2601.  
  2602.  
  2603.     /c load def
  2604.  
  2605.  
  2606.     /v                % x2 y2 x3 y3 v -
  2607.  
  2608.  
  2609.     {
  2610.  
  2611.  
  2612.     currentpoint 6 2 roll curveto
  2613.  
  2614.  
  2615.     } def
  2616.  
  2617.  
  2618.     /V
  2619.  
  2620.  
  2621.     /v load def
  2622.  
  2623.  
  2624.     /y                % x1 y1 x2 y2 y -
  2625.  
  2626.  
  2627.     {
  2628.  
  2629.  
  2630.     2 copy curveto
  2631.  
  2632.  
  2633.     } def
  2634.  
  2635.  
  2636.     /Y
  2637.  
  2638.  
  2639.     /y load def
  2640.  
  2641.  
  2642.     /l                % x y l -
  2643.  
  2644.  
  2645.     {
  2646.  
  2647.  
  2648.     lineto
  2649.  
  2650.  
  2651.     } def
  2652.  
  2653.  
  2654.     /L
  2655.  
  2656.  
  2657.     /l load def
  2658.  
  2659.  
  2660.     /m                % x y m -
  2661.  
  2662.  
  2663.     {
  2664.  
  2665.  
  2666.     moveto
  2667.  
  2668.  
  2669.     } def
  2670.  
  2671.  
  2672.     }
  2673.  
  2674.  
  2675.     {%else
  2676.  
  2677.  
  2678.     /c
  2679.  
  2680.  
  2681.     {
  2682.  
  2683.  
  2684.     pl curveto
  2685.  
  2686.  
  2687.     } def
  2688.  
  2689.  
  2690.     /C
  2691.  
  2692.  
  2693.     /c load def
  2694.  
  2695.  
  2696.     /v
  2697.  
  2698.  
  2699.     {
  2700.  
  2701.  
  2702.     currentpoint 6 2 roll pl curveto
  2703.  
  2704.  
  2705.     } def
  2706.  
  2707.  
  2708.     /V
  2709.  
  2710.  
  2711.     /v load def
  2712.  
  2713.  
  2714.     /y
  2715.  
  2716.  
  2717.     {
  2718.  
  2719.  
  2720.     pl 2 copy curveto
  2721.  
  2722.  
  2723.     } def
  2724.  
  2725.  
  2726.     /Y
  2727.  
  2728.  
  2729.     /y load def
  2730.  
  2731.  
  2732.     /l
  2733.  
  2734.  
  2735.     {
  2736.  
  2737.  
  2738.     pl lineto
  2739.  
  2740.  
  2741.     } def
  2742.  
  2743.  
  2744.     /L
  2745.  
  2746.  
  2747.     /l load def
  2748.  
  2749.  
  2750.     /m
  2751.  
  2752.  
  2753.     {
  2754.  
  2755.  
  2756.     pl moveto
  2757.  
  2758.  
  2759.     } def
  2760.  
  2761.  
  2762.     }ifelse
  2763.  
  2764.  
  2765. % graphic state operators
  2766.  
  2767.  
  2768. /d                    % array phase d -
  2769.  
  2770.  
  2771. {
  2772.  
  2773.  
  2774. setdash
  2775.  
  2776.  
  2777. } def
  2778.  
  2779.  
  2780. /cf    {} def            % - cf flatness
  2781.  
  2782.  
  2783. /i                    % flatness i -
  2784.  
  2785.  
  2786. {
  2787.  
  2788.  
  2789. dup 0 eq
  2790.  
  2791.  
  2792.     {
  2793.  
  2794.  
  2795.     pop cf
  2796.  
  2797.  
  2798.     } if
  2799.  
  2800.  
  2801. setflat
  2802.  
  2803.  
  2804. } def
  2805.  
  2806.  
  2807. /j                    % linejoin j -
  2808.  
  2809.  
  2810. {
  2811.  
  2812.  
  2813. setlinejoin
  2814.  
  2815.  
  2816. } def
  2817.  
  2818.  
  2819. /J                    % linecap J -
  2820.  
  2821.  
  2822. {
  2823.  
  2824.  
  2825. setlinecap
  2826.  
  2827.  
  2828. } def
  2829.  
  2830.  
  2831. /M                    % miterlimit M -
  2832.  
  2833.  
  2834. {
  2835.  
  2836.  
  2837. setmiterlimit
  2838.  
  2839.  
  2840. } def
  2841.  
  2842.  
  2843. /w                    % linewidth w -
  2844.  
  2845.  
  2846. {
  2847.  
  2848.  
  2849. setlinewidth
  2850.  
  2851.  
  2852. } def
  2853.  
  2854.  
  2855. % path painting operators
  2856.  
  2857.  
  2858. /H                    % - H -
  2859.  
  2860.  
  2861. {} def
  2862.  
  2863.  
  2864. /h                    % - h -
  2865.  
  2866.  
  2867. {
  2868.  
  2869.  
  2870. closepath
  2871.  
  2872.  
  2873. } def
  2874.  
  2875.  
  2876. /N                    % - N -
  2877.  
  2878.  
  2879. {
  2880.  
  2881.  
  2882. _pola 0 eq 
  2883.  
  2884.  
  2885.     {
  2886.  
  2887.  
  2888.     _doClip 1 eq {clip /_doClip 0 ddef} if 
  2889.  
  2890.  
  2891.     newpath
  2892.  
  2893.  
  2894.     } 
  2895.  
  2896.  
  2897.     {
  2898.  
  2899.  
  2900.     /CRender {N} ddef
  2901.  
  2902.  
  2903.     }ifelse
  2904.  
  2905.  
  2906. } def
  2907.  
  2908.  
  2909. /n                    % - n -
  2910.  
  2911.  
  2912. {N} def
  2913.  
  2914.  
  2915. /F                    % - F -
  2916.  
  2917.  
  2918. {
  2919.  
  2920.  
  2921. _pola 0 eq 
  2922.  
  2923.  
  2924.     {
  2925.  
  2926.  
  2927.     _doClip 1 eq 
  2928.  
  2929.  
  2930.         {
  2931.  
  2932.  
  2933.         gsave _pf grestore clip newpath /_lp /none ddef _fc 
  2934.  
  2935.  
  2936.         /_doClip 0 ddef
  2937.  
  2938.  
  2939.         }
  2940.  
  2941.  
  2942.         {
  2943.  
  2944.  
  2945.         _pf
  2946.  
  2947.  
  2948.         }ifelse
  2949.  
  2950.  
  2951.     } 
  2952.  
  2953.  
  2954.     {
  2955.  
  2956.  
  2957.     /CRender {F} ddef
  2958.  
  2959.  
  2960.     }ifelse
  2961.  
  2962.  
  2963. } def
  2964.  
  2965.  
  2966. /f                    % - f -
  2967.  
  2968.  
  2969. {
  2970.  
  2971.  
  2972. closepath
  2973.  
  2974.  
  2975. F
  2976.  
  2977.  
  2978. } def
  2979.  
  2980.  
  2981. /S                    % - S -
  2982.  
  2983.  
  2984. {
  2985.  
  2986.  
  2987. _pola 0 eq 
  2988.  
  2989.  
  2990.     {
  2991.  
  2992.  
  2993.     _doClip 1 eq 
  2994.  
  2995.  
  2996.         {
  2997.  
  2998.  
  2999.         gsave _ps grestore clip newpath /_lp /none ddef _sc 
  3000.  
  3001.  
  3002.         /_doClip 0 ddef
  3003.  
  3004.  
  3005.         }
  3006.  
  3007.  
  3008.         {
  3009.  
  3010.  
  3011.         _ps
  3012.  
  3013.  
  3014.         }ifelse
  3015.  
  3016.  
  3017.     } 
  3018.  
  3019.  
  3020.     {
  3021.  
  3022.  
  3023.     /CRender {S} ddef
  3024.  
  3025.  
  3026.     }ifelse
  3027.  
  3028.  
  3029. } def
  3030.  
  3031.  
  3032. /s                    % - s -
  3033.  
  3034.  
  3035. {
  3036.  
  3037.  
  3038. closepath
  3039.  
  3040.  
  3041. S
  3042.  
  3043.  
  3044. } def
  3045.  
  3046.  
  3047. /B                    % - B -
  3048.  
  3049.  
  3050. {
  3051.  
  3052.  
  3053. _pola 0 eq 
  3054.  
  3055.  
  3056.     {
  3057.  
  3058.  
  3059.     _doClip 1 eq     % F clears _doClip
  3060.  
  3061.  
  3062.     gsave F grestore 
  3063.  
  3064.  
  3065.         {
  3066.  
  3067.  
  3068.         gsave S grestore clip newpath /_lp /none ddef _sc
  3069.  
  3070.  
  3071.         /_doClip 0 ddef
  3072.  
  3073.  
  3074.         } 
  3075.  
  3076.  
  3077.         {
  3078.  
  3079.  
  3080.         S
  3081.  
  3082.  
  3083.         }ifelse
  3084.  
  3085.  
  3086.     }
  3087.  
  3088.  
  3089.     {
  3090.  
  3091.  
  3092.     /CRender {B} ddef
  3093.  
  3094.  
  3095.     }ifelse
  3096.  
  3097.  
  3098. } def
  3099.  
  3100.  
  3101. /b                    % - b -
  3102.  
  3103.  
  3104. {
  3105.  
  3106.  
  3107. closepath
  3108.  
  3109.  
  3110. B
  3111.  
  3112.  
  3113. } def
  3114.  
  3115.  
  3116. /W                    % - W -
  3117.  
  3118.  
  3119. {
  3120.  
  3121.  
  3122. /_doClip 1 ddef
  3123.  
  3124.  
  3125. } def
  3126.  
  3127.  
  3128. /*                    % - [string] * -
  3129.  
  3130.  
  3131. {
  3132.  
  3133.  
  3134. count 0 ne 
  3135.  
  3136.  
  3137.     {
  3138.  
  3139.  
  3140.     dup type (stringtype) eq {pop} if
  3141.  
  3142.  
  3143.     } if 
  3144.  
  3145.  
  3146. _pola 0 eq {newpath} if
  3147.  
  3148.  
  3149. } def
  3150.  
  3151.  
  3152. % group operators
  3153.  
  3154.  
  3155. /u                    % - u -
  3156.  
  3157.  
  3158. {} def
  3159.  
  3160.  
  3161. /U                    % - U -
  3162.  
  3163.  
  3164. {} def
  3165.  
  3166.  
  3167. /q                    % - q -
  3168.  
  3169.  
  3170. {
  3171.  
  3172.  
  3173. _pola 0 eq {gsave} if
  3174.  
  3175.  
  3176. } def
  3177.  
  3178.  
  3179. /Q                    % - Q -
  3180.  
  3181.  
  3182. {
  3183.  
  3184.  
  3185. _pola 0 eq {grestore} if
  3186.  
  3187.  
  3188. } def
  3189.  
  3190.  
  3191. /*u                    % - *u -
  3192.  
  3193.  
  3194. {
  3195.  
  3196.  
  3197. _pola 1 add /_pola exch ddef
  3198.  
  3199.  
  3200. } def
  3201.  
  3202.  
  3203. /*U                    % - *U -
  3204.  
  3205.  
  3206. {
  3207.  
  3208.  
  3209. _pola 1 sub /_pola exch ddef 
  3210.  
  3211.  
  3212. _pola 0 eq {CRender} if
  3213.  
  3214.  
  3215. } def
  3216.  
  3217.  
  3218. /D                    % polarized D -
  3219.  
  3220.  
  3221. {pop} def
  3222.  
  3223.  
  3224. /*w                    % - *w -
  3225.  
  3226.  
  3227. {} def
  3228.  
  3229.  
  3230. /*W                    % - *W -
  3231.  
  3232.  
  3233. {} def
  3234.  
  3235.  
  3236. % place operators
  3237.  
  3238.  
  3239. /`                    % matrix llx lly urx ury string ` -
  3240.  
  3241.  
  3242. {
  3243.  
  3244.  
  3245. /_i save ddef
  3246.  
  3247.  
  3248. 6 1 roll 4 npop
  3249.  
  3250.  
  3251. concat pop
  3252.  
  3253.  
  3254. userdict begin
  3255.  
  3256.  
  3257. /showpage {} def
  3258.  
  3259.  
  3260. 0 setgray
  3261.  
  3262.  
  3263. 0 setlinecap
  3264.  
  3265.  
  3266. 1 setlinewidth
  3267.  
  3268.  
  3269. 0 setlinejoin
  3270.  
  3271.  
  3272. 10 setmiterlimit
  3273.  
  3274.  
  3275. [] 0 setdash
  3276.  
  3277.  
  3278. newpath
  3279.  
  3280.  
  3281. 0 setgray
  3282.  
  3283.  
  3284. false setoverprint
  3285.  
  3286.  
  3287. } def
  3288.  
  3289.  
  3290. /~                    % - ~ -
  3291.  
  3292.  
  3293. {
  3294.  
  3295.  
  3296. end
  3297.  
  3298.  
  3299. _i restore
  3300.  
  3301.  
  3302. } def
  3303.  
  3304.  
  3305. % color operators
  3306.  
  3307.  
  3308. /O                    % flag O -
  3309.  
  3310.  
  3311. {
  3312.  
  3313.  
  3314. 0 ne
  3315.  
  3316.  
  3317. /_of exch ddef
  3318.  
  3319.  
  3320. /_lp /none ddef
  3321.  
  3322.  
  3323. } def
  3324.  
  3325.  
  3326. /R                    % flag R -
  3327.  
  3328.  
  3329. {
  3330.  
  3331.  
  3332. 0 ne
  3333.  
  3334.  
  3335. /_os exch ddef
  3336.  
  3337.  
  3338. /_lp /none ddef
  3339.  
  3340.  
  3341. } def
  3342.  
  3343.  
  3344. /g                    % gray g -
  3345.  
  3346.  
  3347. {
  3348.  
  3349.  
  3350. /_gf exch ddef
  3351.  
  3352.  
  3353. /_fc
  3354.  
  3355.  
  3356. { 
  3357.  
  3358.  
  3359. _lp /fill ne
  3360.  
  3361.  
  3362.     {
  3363.  
  3364.  
  3365.     _of setoverprint
  3366.  
  3367.  
  3368.     _gf setgray
  3369.  
  3370.  
  3371.     /_lp /fill ddef
  3372.  
  3373.  
  3374.     } if
  3375.  
  3376.  
  3377. } ddef
  3378.  
  3379.  
  3380. /_pf
  3381.  
  3382.  
  3383. {
  3384.  
  3385.  
  3386. _fc
  3387.  
  3388.  
  3389. fill
  3390.  
  3391.  
  3392. } ddef
  3393.  
  3394.  
  3395. /_psf
  3396.  
  3397.  
  3398. {
  3399.  
  3400.  
  3401. _fc
  3402.  
  3403.  
  3404. ashow
  3405.  
  3406.  
  3407. } ddef
  3408.  
  3409.  
  3410. /_pjsf
  3411.  
  3412.  
  3413. {
  3414.  
  3415.  
  3416. _fc
  3417.  
  3418.  
  3419. awidthshow
  3420.  
  3421.  
  3422. } ddef
  3423.  
  3424.  
  3425. /_lp /none ddef
  3426.  
  3427.  
  3428. } def
  3429.  
  3430.  
  3431. /G                    % gray G -
  3432.  
  3433.  
  3434. {
  3435.  
  3436.  
  3437. /_gs exch ddef
  3438.  
  3439.  
  3440. /_sc
  3441.  
  3442.  
  3443. {
  3444.  
  3445.  
  3446. _lp /stroke ne
  3447.  
  3448.  
  3449.     {
  3450.  
  3451.  
  3452.     _os setoverprint
  3453.  
  3454.  
  3455.     _gs setgray
  3456.  
  3457.  
  3458.     /_lp /stroke ddef
  3459.  
  3460.  
  3461.     } if
  3462.  
  3463.  
  3464. } ddef
  3465.  
  3466.  
  3467. /_ps
  3468.  
  3469.  
  3470. {
  3471.  
  3472.  
  3473. _sc
  3474.  
  3475.  
  3476. stroke
  3477.  
  3478.  
  3479. } ddef
  3480.  
  3481.  
  3482. /_pss
  3483.  
  3484.  
  3485. {
  3486.  
  3487.  
  3488. _sc
  3489.  
  3490.  
  3491. ss
  3492.  
  3493.  
  3494. } ddef
  3495.  
  3496.  
  3497. /_pjss
  3498.  
  3499.  
  3500. {
  3501.  
  3502.  
  3503. _sc
  3504.  
  3505.  
  3506. jss
  3507.  
  3508.  
  3509. } ddef
  3510.  
  3511.  
  3512. /_lp /none ddef
  3513.  
  3514.  
  3515. } def
  3516.  
  3517.  
  3518. /k                    % cyan magenta yellow black k -
  3519.  
  3520.  
  3521. {
  3522.  
  3523.  
  3524. _cf astore pop
  3525.  
  3526.  
  3527. /_fc
  3528.  
  3529.  
  3530. {
  3531.  
  3532.  
  3533. _lp /fill ne
  3534.  
  3535.  
  3536.     {
  3537.  
  3538.  
  3539.     _of setoverprint
  3540.  
  3541.  
  3542.     _cf aload pop setcmykcolor
  3543.  
  3544.  
  3545.     /_lp /fill ddef
  3546.  
  3547.  
  3548.     } if
  3549.  
  3550.  
  3551. } ddef
  3552.  
  3553.  
  3554. /_pf
  3555.  
  3556.  
  3557. {
  3558.  
  3559.  
  3560. _fc
  3561.  
  3562.  
  3563. fill
  3564.  
  3565.  
  3566. } ddef
  3567.  
  3568.  
  3569. /_psf
  3570.  
  3571.  
  3572. {
  3573.  
  3574.  
  3575. _fc
  3576.  
  3577.  
  3578. ashow
  3579.  
  3580.  
  3581. } ddef
  3582.  
  3583.  
  3584. /_pjsf
  3585.  
  3586.  
  3587. {
  3588.  
  3589.  
  3590. _fc
  3591.  
  3592.  
  3593. awidthshow
  3594.  
  3595.  
  3596. } ddef
  3597.  
  3598.  
  3599. /_lp /none ddef
  3600.  
  3601.  
  3602. } def
  3603.  
  3604.  
  3605. /K                    % cyan magenta yellow black K -
  3606.  
  3607.  
  3608. {
  3609.  
  3610.  
  3611. _cs astore pop
  3612.  
  3613.  
  3614. /_sc
  3615.  
  3616.  
  3617. {
  3618.  
  3619.  
  3620. _lp /stroke ne
  3621.  
  3622.  
  3623.     {
  3624.  
  3625.  
  3626.     _os setoverprint
  3627.  
  3628.  
  3629.     _cs aload pop setcmykcolor
  3630.  
  3631.  
  3632.     /_lp /stroke ddef
  3633.  
  3634.  
  3635.     } if
  3636.  
  3637.  
  3638. } ddef
  3639.  
  3640.  
  3641. /_ps
  3642.  
  3643.  
  3644. {
  3645.  
  3646.  
  3647. _sc
  3648.  
  3649.  
  3650. stroke
  3651.  
  3652.  
  3653. } ddef
  3654.  
  3655.  
  3656. /_pss
  3657.  
  3658.  
  3659. {
  3660.  
  3661.  
  3662. _sc
  3663.  
  3664.  
  3665. ss
  3666.  
  3667.  
  3668. } ddef
  3669.  
  3670.  
  3671. /_pjss
  3672.  
  3673.  
  3674. {
  3675.  
  3676.  
  3677. _sc
  3678.  
  3679.  
  3680. jss
  3681.  
  3682.  
  3683. } ddef
  3684.  
  3685.  
  3686. /_lp /none ddef
  3687.  
  3688.  
  3689. } def
  3690.  
  3691.  
  3692. /x                    % cyan magenta yellow black name gray x -
  3693.  
  3694.  
  3695. {
  3696.  
  3697.  
  3698. /_gf exch ddef
  3699.  
  3700.  
  3701. findcmykcustomcolor
  3702.  
  3703.  
  3704. /_if exch ddef
  3705.  
  3706.  
  3707. /_fc
  3708.  
  3709.  
  3710. { 
  3711.  
  3712.  
  3713. _lp /fill ne
  3714.  
  3715.  
  3716.     {
  3717.  
  3718.  
  3719.     _of setoverprint
  3720.  
  3721.  
  3722.     _if _gf 1 exch sub setcustomcolor
  3723.  
  3724.  
  3725.     /_lp /fill ddef
  3726.  
  3727.  
  3728.     } if
  3729.  
  3730.  
  3731. } ddef
  3732.  
  3733.  
  3734. /_pf
  3735.  
  3736.  
  3737. {
  3738.  
  3739.  
  3740. _fc
  3741.  
  3742.  
  3743. fill
  3744.  
  3745.  
  3746. } ddef
  3747.  
  3748.  
  3749. /_psf
  3750.  
  3751.  
  3752. {
  3753.  
  3754.  
  3755. _fc
  3756.  
  3757.  
  3758. ashow
  3759.  
  3760.  
  3761. } ddef
  3762.  
  3763.  
  3764. /_pjsf
  3765.  
  3766.  
  3767. {
  3768.  
  3769.  
  3770. _fc
  3771.  
  3772.  
  3773. awidthshow
  3774.  
  3775.  
  3776. } ddef
  3777.  
  3778.  
  3779. /_lp /none ddef
  3780.  
  3781.  
  3782. } def
  3783.  
  3784.  
  3785. /X                    % cyan magenta yellow black name gray X -
  3786.  
  3787.  
  3788. {
  3789.  
  3790.  
  3791. /_gs exch ddef
  3792.  
  3793.  
  3794. findcmykcustomcolor
  3795.  
  3796.  
  3797. /_is exch ddef
  3798.  
  3799.  
  3800. /_sc
  3801.  
  3802.  
  3803. {
  3804.  
  3805.  
  3806. _lp /stroke ne
  3807.  
  3808.  
  3809.     {
  3810.  
  3811.  
  3812.     _os setoverprint
  3813.  
  3814.  
  3815.     _is _gs 1 exch sub setcustomcolor
  3816.  
  3817.  
  3818.     /_lp /stroke ddef
  3819.  
  3820.  
  3821.     } if
  3822.  
  3823.  
  3824. } ddef
  3825.  
  3826.  
  3827. /_ps
  3828.  
  3829.  
  3830. {
  3831.  
  3832.  
  3833. _sc
  3834.  
  3835.  
  3836. stroke
  3837.  
  3838.  
  3839. } ddef
  3840.  
  3841.  
  3842. /_pss
  3843.  
  3844.  
  3845. {
  3846.  
  3847.  
  3848. _sc
  3849.  
  3850.  
  3851. ss
  3852.  
  3853.  
  3854. } ddef
  3855.  
  3856.  
  3857. /_pjss
  3858.  
  3859.  
  3860. {
  3861.  
  3862.  
  3863. _sc
  3864.  
  3865.  
  3866. jss
  3867.  
  3868.  
  3869. } ddef
  3870.  
  3871.  
  3872. /_lp /none ddef
  3873.  
  3874.  
  3875. } def
  3876.  
  3877.  
  3878. % locked object operator
  3879.  
  3880.  
  3881. /A                    % value A -
  3882.  
  3883.  
  3884. {
  3885.  
  3886.  
  3887. pop
  3888.  
  3889.  
  3890. } def
  3891.  
  3892.  
  3893. currentdict readonly pop end
  3894.  
  3895.  
  3896. setpacking
  3897.  
  3898.  
  3899. % annotate page operator
  3900.  
  3901.  
  3902. /annotatepage
  3903.  
  3904.  
  3905. {
  3906.  
  3907.  
  3908. } def
  3909.  
  3910.  
  3911. %%EndResource
  3912.  
  3913.  
  3914. %%EndProlog
  3915.  
  3916.  
  3917. %%BeginSetup
  3918.  
  3919.  
  3920. Adobe_cmykcolor /initialize get exec
  3921.  
  3922.  
  3923. Adobe_cshow /initialize get exec
  3924.  
  3925.  
  3926. Adobe_customcolor /initialize get exec
  3927.  
  3928.  
  3929. Adobe_typography_AI3 /initialize get exec
  3930.  
  3931.  
  3932. Adobe_IllustratorA_AI3 /initialize get exec
  3933.  
  3934.  
  3935. %%EndSetup
  3936.